home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY11.PRG < prev    next >
Text File  |  1993-07-28  |  2KB  |  58 lines
  1. m.crlf = chr(13)+chr(10)
  2. declare names(22)
  3. names[ 1] = "Parking"
  4. names[ 2] = "Passenger Loading Zones"
  5. names[ 3] = "Pathways"
  6. names[ 4] = "Areas of Rescue Assistance"
  7. names[ 5] = "Drinking Fountatins"
  8. names[ 6] = "Telephones"
  9. names[ 7] = "Ramps"
  10. names[ 8] = "Stairs"
  11. names[ 9] = "Lifts"
  12. names[10] = "Entrances"
  13. names[11] = "Doors and Gates"
  14. names[12] = "Building Lobbies and Corridors"
  15. names[13] = "Elevators"
  16. names[14] = "Rooms and Spaces"
  17. names[15] = "Assembly Rooms"
  18. names[16] = "Toilet Rooms"
  19. names[17] = "Bathtubs and Showers"
  20. names[18] = "Restaurants and Cafeterias"
  21. names[19] = "Health Care"
  22. names[20] = "Mercantile and Business"
  23. names[21] = "Libraries"
  24. names[22] = "Accessible Transient Lodging"
  25. for m.i = 1 to 22
  26.     m.form = "form" + alltrim(str(m.i))
  27.     m.dbfile = m.form + ".dbf"
  28.     for m.j = 0 to 14
  29.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  30.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  31.         ?m.scrfile
  32.         select 0
  33.         if not file(m.scrfile)
  34.             exit
  35.         endif
  36.     next
  37.  
  38.     * m.j must be the number of pages in this form.
  39.     for m.k = 0 to m.j-1    
  40.         m.nextletter = iif(m.k = 0, "", chr(m.k-1+asc("A")))
  41.         m.nextscrfile = m.form +  alltrim(m.nextletter) + ".scx"
  42.         ?m.nextscrfile
  43.         select 0
  44.         if not file(m.nextscrfile)
  45.             exit
  46.         endif
  47.         use &nextscrfile alias screen
  48.         go top
  49.         
  50.         
  51.         locate for screen.objtype=1
  52.         m.tag = '"' + names[m.i] + ' [p ' + alltrim(str(m.k+1)) + ' of ' + alltrim(str(m.j)) + ']"'
  53.         gather memvar memo fields screen.tag
  54.                 
  55.         use
  56.     endfor
  57. endfor
  58.